#N canvas 0 30 1022 568 16;
#X obj 267 123 inlet~;
#X obj 204 70 inlet;
#X obj 630 119 inlet;
#X text 629 88 decay;
#X obj 311 441 outlet~;
#X obj 345 224 delwrite~ echo\$0 60000;
#X text 182 42 delay (ms);
#X obj 390 357 s~ recur\$0;
#X obj 369 135 r~ recur\$0;
#X obj 370 185 expr~ $v1*(1-max($f2 \, 0.01));
#X obj 706 121 f \$1;
#X obj 709 48 loadbang;
#X obj 345 304 delread4~ echo\$0 60000;
#X connect 0 0 4 0;
#X connect 0 0 9 0;
#X connect 1 0 12 0;
#X connect 2 0 9 1;
#X connect 8 0 9 0;
#X connect 9 0 5 0;
#X connect 10 0 9 1;
#X connect 11 0 10 0;
#X connect 12 0 4 0;
#X connect 12 0 7 0;
